home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD024b.dsk / DISP VAR.txt < prev    next >
Text File  |  2003-06-12  |  297b  |  5 lines
  1. AV=PEEK(108)*256+PEEK(107)
  2. SV=PEEK(106)*256+PEEK(105)
  3. TEXT:H=1
  4. HOME:FORI=SVTO(AV-7)STEP7:A$=CHR$(PEEK(I)-(PEEK(I)>127)*128)+CHR$(PEEK(I+1)-(PEEK(I+1)>127)*128)+CHR$(((PEEK(I)>127 AND (I+1)>127))*37)+CHR$(((PEEK(I)<128) AND (PEEK(I+1)>127))*36):HTABH:VTAB(I-SV)/70+1:?A$:H=(H+4)*(H<37)+(H=37):NEXT
  5.